Option Explicit
Sub D_Sample038()
    Dim myWb       As Workbook
    Dim myFileName As String
    myFileName = ThisWorkbook.Path & "\temp2.xls"                'wɮצW
    Set myWb = Workbooks(1)                                     'Nï
    'ǳƨ즹
    myWb.SaveAs Filename:=myFileName, Password:="password"    ']wKX
    Set myWb = Nothing                                                '
End Sub
